0 PRINT"[147]":POKE53274,.
1 POKE55,0:POKE56,60:CLR
4 POKE147,0:SYS57812"ROUTINES V4",8,1:SYS62631
5 POKE147,0:SYS57812"BASIC PLAYER.O",8,1:SYS62631
6 POKE147,0:SYS57812"RASTER STUFF.O",8,1:SYS62631
7 SYS57812"PLANTHG.SPR",8,0:POKE780,0:POKE781,0:POKE782,60:SYS65493
10 FR$="":LA$="":OV$=""
11 NS=7:DIM NA$(NS),FI$(NS)
12 SA=780:SX=781:SY=782
13 FORI=0TO24:POKE54272+I,0:NEXT
14 SU=51206:SD=51209
15 POKE1020,10:POKE1021,16:POKE1022,12:POKE1023,32
16 V=53248:POKEV+39,9:FOR I=1TO4:POKEV+39+I,5:NEXT
17 FOR I=5TO7:POKEV+39+I,2:NEXT
18 FOR I=0TO7:POKE 2040+I,I+240:NEXT
19 FOR I=0TO7:READA:POKEV+I*2,A:NEXT
20 FOR I=0TO7:READA:POKEV+1+I*2,A:NEXT
23 DATA 44,44,44,44,44,24,44,67
24 DATA 180,180,180,180,180,83,75,81
30 GOSUB1000
35 GOSUB1500
40 GOSUB2000
50 GOSUB3000
60 GOSUB100
64 PRINT"[193]RE YOU SURE YOU WANT TO QUIT? ([217]/[206])":POKE198,.
66 A=PEEK(203):IFA<>25ANDA<>39THEN66
68 IFA=39THENGOSUB2020:GOTO50
69 POKEV+21,0
70 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
72 IFER<>63THENPRINT"[147]":END
74 LOAD"HELLO CONNECT",8
100 PRINTLA$""
110 FORA=1TO5:PRINT"                                    "
120 NEXT:PRINT"[145][145][145][145][145][145]"
130 RETURN
1000 POKE53280,0:POKE53281,1
1010 PRINT"[147]";
1012 FORA=1TO5:
1013 PRINT"[144]                                        ";
1014 NEXT
1020 FORA=.TO18:PRINT"[144]                                        ";:NEXT
1035 PRINT"                                       [157][148] "
1040 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
1050 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1060 PRINT"[221][204][207][193][196][211][212][193][210] [208]RESENTS[221][144][174]"
1070 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][144][221]"
1080 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
1090 PRINT"[144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1095 PRINT"[144][221]                      [221][144][174]"
1100 FORA=1TO4
1110 PRINT"[144][221]                      [221][144][221]"
1120 NEXT
1130 PRINT"[144][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][144][221]"
1135 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
1140 PRINT"[145][145][145][145][145][145] [200][207][205][197] [199][210][207][215][206] [201][201]  "
1150 PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163] "
1160 PRINT"   [194]Y [196]EBBY [195]RUZ"
1170 PRINT"                    "
1180 PRINT"[150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1190 PRINT"[221]        [195]OPYRIGHT 1989        [221][144][174]"
1191 PRINT"[150][221]                              [221][144][221]"
1192 PRINT"[150][221]        [211]OFTDISK, [201]NC.        [221][144][221]"
1200 PRINT"[150][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][144][221]"
1210 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
1220 POKE V+21,31
1221 FOR Z=1TO800:NEXT
1222 FOR I=1TO21:POKEV+3,180-I:NEXT
1223 FOR I=1TO21:POKEV+5,180-I:POKEV+3,159-I:NEXT
1224 FOR I=1TO21:POKEV+7,180-I:POKEV+5,159-I:POKEV+3,138-I:NEXT
1225 FOR I=1TO21:POKEV+9,180-I:POKEV+7,159-I:POKEV+5,138-I:POKEV+3,117-I:NEXT
1226 POKE V+21,255
1227 FORI=0TO15:POKE679+I,PEEK(V+I):NEXT
1229 FORA=1TONS:READ NA$(A),FI$(A):NEXT
1230 PRINT"[149]  [208]RESS [211][208][193][195][197] TO CONTINUE [144]":POKE198,.
1240 IFPEEK(203)<>60THEN1240
1245 REM     POKE V+21,0
1250 RETURN
1500 PRINT"[221]                 [221]"
1510 PRINT"[221]  [200][207][205][197][160][199][210][207][215][206][160][201][201][160] [221][144][221]"
1520 PRINT"[221]  [163][163][163][163][163][163][163][163][163][163][163][163][163]  [221][144][221]"
1530 PRINT"[144]          [221]  [194]Y [196]EBBY [195]RUZ  [221][144][221]         "
1535 MM=1263:POKEMM,160:POKE54272+MM,0
1540 PRINT"[144]          [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][144][221]         "
1545 MM=MM+40:POKEMM,160:POKE54272+MM,0
1550 PRINT"[144]           [144][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]         "
1555 MM=MM+40:POKEMM,160:POKE54272+MM,0
1560 PRINT"[144]     [202][213][203][197][194][207][216] PLAYER BY [205]IKE [205]AYNARD   "
1565 MM=MM+40:POKEMM,160:POKE54272+MM,0
1570 PRINT"[144] [146][129][146][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1575 MM=MM+40:POKEMM,160:POKE54272+MM,0
1578 MM=MM+40:POKEMM,238:POKE54272+MM,0
1580 FORA=1TO7
1590 PRINT"[144] [129][146][221]                                    [221]"
1595 MM=MM+40:POKEMM,221:POKE54272+MM,0
1597 IFA=4THENPRINT"[145][144]--->"TAB(34)"<---"
1600 NEXT
1610 PRINT"[144] [129][146][171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
1615 MM=MM+40:POKEMM,221:POKE54272+MM,0
1620 FORA=1TO5
1630 PRINT"[144] [129][146][221]                                    [221]"
1635 MM=MM+40:POKEMM,221:POKE54272+MM,0
1640 NEXT
1650 PRINT"[144] [146][129][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
1655 MM=MM+40:POKEMM,253:POKE54272+MM,0
1660 PRINT"[144]  [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
1665 REM MM=MM+40:POKEMM,125:POKE54272+MM,0
1670 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
1680 RETURN
2000 PRINTFR$;
2010 FORA=1TO7:PRINTOV$"[156]"NA$(A):NEXT
2015 SE=4
2016 LS$=""
2020 GOSUB100:PRINTLA$"[213]SE THE [195][210][211][210] KEYS TO SCROLL"
2025 PRINT"THE MUSIC UP AND DOWN."
2030 PRINT"[208]RESS [[210][197][212][213][210][206]] TO HEAR THE"
2040 PRINT"SELECTED MUSIC."
2050 PRINT"[198]1 - [208]LAY ALL        [198]7 - [209]UIT"
2060 RETURN
3000 POKE198,.:AB=.:PA=.
3005 B=PEEK(653):A=PEEK(203):IFA<>7ANDA<>2ANDA<>4ANDA<>3ANDA<>1THEN3000
3010 IF((B=.)AND(A=2))OR((B)AND(A=7))THEN GOSUB3100:GOTO3000
3020 IF((B=.)AND(A=7))OR((B)AND(A=2))THEN GOSUB3200:GOTO3000
3030 IF(A=1)THEN4000
3040 IF(A=4)THEN4100
3050 IF(A=3)THEN RETURN
3060 GOTO3000
3100 SE=SE-1:IFSE=.THENSE=NS
3110 TP=SE-3:IFTP<1THENTP=NS+TP
3120 SYSSD:POKE648,216:SYSSD:POKE648,4:PRINTFR$OV$"[156]"NA$(TP)
3130 RETURN
3200 SE=SE+1:IFSE=NS+1THENSE=1
3210 BO=SE+3:IFBO>NSTHENBO=BO-NS
3220 SYSSU:POKE648,216:SYSSU:POKE648,4:PRINTLA$OV$"[156]"NA$(BO)
3230 RETURN
4000 PL=SE
4010 GOSUB6000
4040 GOTO3000
4097 :
4098 :
4100 MM=SE:PA=-1:FORZZ=SETONS
4110 PL=ZZ
4120 GOSUB6000
4150 GOSUB3200
4155 IF(AB)THENGOSUB2020:GOTO3000
4160 NEXT:IF(MM=1)OR(AB)THENGOSUB2020:GOTO3000
4170 FORZZ=1TOMM-1
4180 PL=ZZ
4190 GOSUB6000
4210 GOSUB6500
4220 GOSUB3200
4225 IF(AB)THENGOSUB2020:GOTO3000
4230 NEXT:GOSUB2020:GOTO3000
6000 OK=1:HE=.:IFLS$=FI$(PL)THEN6540
6001 LS$=FI$(PL)
6003 GOSUB100:LI$="[204]OADING "+NA$(PL):LI=LEN(LI$):TA=20-LI/2
6005 PRINT""TAB(TA)LI$:POKEV+21,0
6010 SYS57812"M."+FI$(PL),8,0:POKE780,.:POKE781,.:POKE782,160:SYS65493
6011 SYS57812"W."+FI$(PL),8,0:POKE780,.:POKE781,104:POKE782,207:SYS65493
6500 AD=1:OPEN3,8,3,"C."+FI$(PL):FORA=1TO5:CR$(A)="":NEXT:A=FRE(1)
6510 FORI=.TO1:GET#3,A$:I=ST:IFA$=CHR$(13)THENAD=AD+1:GOTO6530
6520 CR$(AD)=CR$(AD)+A$
6530 NEXT:CLOSE3
6540 IF(OK)THENSYS52222,40960:OK=.
6550 POKE198,.:GOSUB100:PRINT"";:FORA=1TO5:PRINTCR$(A):NEXT
6553 PRINT"";:FORA=1TO5:PRINT"[144] [146][129][221]":NEXT
6555 PRINT"[144]          [208]RESS "CHR$(34)"[200]"CHR$(34)" FOR HELP.          "
6556 FORI=0TO15:POKEV+I,PEEK(679+I):NEXT
6557 POKEV+21,255
6560 KE=PEEK(203):IF(KEY=29)OR(KEY=60)OR(KEY=10)OR(KEY=62)THEN6562
6561 IFPEEK(2)<>255THEN6560
6562 IF(KEY=60)AND(HE)THENHE=.:GOTO6550
6563 IF(KEY=10)AND(PA)THENAB=-1:GOTO6570
6564 IF(KEY=29)AND(NOT(HE))THENGOSUB7500:GOTO6560
6565 IF(KEY=60)OR(KEY=29)OR(KEY=10)THEN6560
6570 GOSUB100
6572 SYS52225
6575 PRINT"[144]                                    "
6580 IF(NOT(PA))THENGOSUB100:GOSUB2020
6590 RETURN
7500 PRINT"[144]                                    "
7510 GOSUB100:PRINT" [208]RESS "CHR$(34)"[209]"CHR$(34)" TO QUIT CURRENT MUSIC."
7520 IFNOT(PA)THENPRINT:GOTO7540
7530 PRINT" [208]RESS "CHR$(34)"[193]"CHR$(34)" TO ABORT PLAY ALL."
7540 PRINT" [208]RESS [211][208][193][195][197] TO RE-DISPLAY CREDITS."
7550 HE=-1:RETURN
10000 OPEN15,8,15,"S0:HOMEGROWN II":CLOSE15:SAVE"HOMEGROWN II",8
10003 DATA "[205]ANHATTAN [210]OSE",MANHATTAN
10004 DATA "[204]ET [201]T [210]OLL",LETITROLL
10005 DATA "[212]ANGO",TANGO
10006 DATA "[215]EIRD",WEIRD
10007 DATA "[211]ARASPONDA",SARASPONDA
10008 DATA "[194]LUER [208]ASTURES",BLUER
10009 DATA "[212]HE [212]RAIN [201]S [195]OMING",TRAIN